Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With RichTextBox1
        'wRichTextrݩ
        .OLEDragMode = rtfOLEDragManual
        .OLEDropMode = rtfOLEDropManual
        .BackColor = Me.BackColor
        .BorderStyle = rtfNoBorder
        .Text = "бNϹ즲o"
    End With
End Sub

Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, _
                                    Effect As Long, _
                                    Button As Integer, _
                                    Shift As Integer, _
                                    x As Single, _
                                    y As Single)
    TextBox1.Value = Data.Files.Item(1)
End Sub
